 
(* ::Section:: *)
(* CalcColorFactor *)
(* ::Text:: *)
(*`CalcColorFactor[exp]` calculates the color factor of exp. `CalcColorFactor` is useful for application on FeynArts produced amplitudes. *)

(* ::Subsection:: *)
(* See also *)
(* ::Text:: *)
(*SUNSimplify.*)

(* ::Subsection:: *)
(* Examples *)
CalcColorFactor[SUNF[a,b,c] SUNF[a,b,d]]
